GetNofSections Function

public function GetNofSections(ini) result(count)

count sections in a ini db

Arguments

Type	Intent	Optional	Attributes		Name
type(IniList),	intent(in)			::	ini

Return Value integer(kind=short)

Source Code

FUNCTION GetNofSections &
  ( ini )            &
RESULT (count)

IMPLICIT NONE
! function arguments 
!arguments with intent(in):
TYPE (IniList), INTENT(in) :: ini

!Local scalar:
INTEGER (KIND = short) :: count

!------------end of declaration------------------------------------------------ 

count = ini % nOfSections

RETURN

END FUNCTION GetNofSections